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Gary Little's new book is finally here: “Exploring the Apple 
IIgs", published by Addison-Wesley, 534 pages. If you are 
seriously trying to conquer the IIgs in assembly language, this 
book is a must. Instead of just telling us the tool numbers, 
Gary includes working examples of assembly language code which 
use the tools. Here is a list of the chapter titles, which I 
think is the easiest way to describe the contents: 


Exploring the Apple IIgs 
Programming the 65816 Microprocessor 
Using the GS Tools 

Memory Management 

Event Management 

Windows and Graphics 

Using Pull-Down Menus 

Using Dialog and Alert Boxes 
All about Desk Accessories 

- The ProDOS-16 Operating System 
e Sound and Music 

- Using the Text Tool Set 
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The examples are all written using Apple's APW assembler, and 
make extensive use of the toolbox macros included with that 
assembler. A coupon in the back of the book lets you order a 
complete source code disk directly from Gary Little for all of 
the programs listed in the book for only $20. You can buy the 
book from us for $21 plus shipping. 


Another new book this month is also from Addison-Wesley, in the 
official Apple IIgs series, “The Apple IIgs Hardware", 288 pages 
+ 8 foldout schematics. This one lists at $24.95, and you can 
get it from us for $23. Again, if you are serious about 
programming the IIgs in assembly language you probably need this 
book. It contains information about the hardware you won't find 
in the other books. 


Draw Circles the Fast Way......eeccceeeeee BOO Sander-Cederlof 


I loved the article "Vector-to-Raster Algorithms” by Dick 
Pountain in the September 1987 issue of BYTE. It is the kind 
of article that explains why I have been a loyal subscriber for 
ten years or so. Pountain carefully explains how the 
fundamental graphics subroutines are written, and gives 
pseudo-code examples for each one. And, wonder of wonders, 
BYTE printed all of the examples! (It has been so frustrating 
the last three years to find that the examples must be 
downloaded from BIX or ordered at extra cost!) 


I decided to try my hand at coding a fast circle-drawing 
subroutine for Apple hi-res graphics. Things like that are 
already included in the //gs QuickDraw ToolBox for Super 
Hi-Res, but I am not aware of any generally available 
Circle-drawers for ordinary hi-res. 


Since I wrote the double lo-res article last month, I decided 
to first try adding a circle-drawer to that program. It would 
be somewhat easier, since all of the variables involved could 
be 8-bit integers. But even before that I decided to write an 
Applesoft version, using normal hi-res. 


1000 REM DRAW A CIRCLE USING MICHENER'S ALGORITHM 

1010 HGR 

1020 HCOLOR= 3 

1030 INPUT CX,CY,R 

1040 X = 0O:¥Y = RsE=3-2#* R 

1050 REM PLOT 8 POINTS 

1060 HPLOT CX + X,CY + Y: HPLOT CX + X,CY 

1070 HPLOT CX - X,CY + Y¥: HPLOT CX - X,CY 

1080 HPLOT CX + Y,CY + X: HPLOT CX + Y,CY 

1090 HPLOT CX - ¥,CY + X: HPLOT CX - Y,CY 

1100 REM ADVANCE TO NEXT POINT 

1110 IF E> 0 THENEF E+ 4 * (X - Y) + 10:;¥ = ¥Y - 1] 
: GOTO 1130 

1120 E=Et4 * X + 6 

1130 X = X + 1: IF X < = Y THEN 1060 

1140 GOTO 1030 
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This program will draw a circle of radius R and center at 
Cx,CY. Line 1030 lets you enter the center and radius. The 
algorithm actually computes an X-offset and Y-offset from the 
center for each point in 1/8th of the circle. Lines 1060-1090 
use the offsets to plot eight points, one in each of the 
half-quadrants. The three expressions for calculating E, in 
lines 1040, 1110, and 1120 are the secret to the program, 
Pountain says they were derived by “algebraic re-arrangement" 
of the basic equation of a circle: X"2 + Y°2 = R°2. Maybe so, 
I'll just take his word for it. 


I found it interesting to play with some of the parameters. I 
changed line 1030 do assign specific values to CX, CY, and R 
and then ask for a value "A“. Then I changed the expression 
for "E”“ in line 1110 by substituting “A" in the place of "4". 
By changing the value of "A“ I could draw anything froma 
square to a diamond with missing points. Try it! 
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S-C Macro Assembler Version 2.0......DOS $100, ProDOS $100, both for $120 
Version 2.0 DOS Upgrade Kit for 1.0/1.1/1.2 owners...ccccccccccceseses $20 
ProDOS Upgrade Kit for Maret 2.0 DOS OWNETs.cccccscccncscesescccsece 38 
Source Code of S-C Macro 2.0 (DOS or ProDOS)........-each, additional $100 
S-C DisAssembler (ProDOS only)...without source code $30, with source $50 
RAK-Ware DISASM (DOS only).......without source code $30, with source 3° 
ProVIEW (ProDOS ORLY Vy 0: 5a siete renee ao terelale Sas ware ola kw We Ow CS ee Ne eae Oe ele 0 
Full Screen Editor for S-C Macro (with complete source code)..........$49 
S-C Cross Reference Utility......without source code $20, with source 350 
S-C Word Processor (with complete source Code)... ccccssccccsvcccsseces $90 
DP18 and DPFP, including complete source and object code... ..secsseeees $590 
ES-CAPE (Extended S-C Applesoft Program Editor) ..c.ccosere 

Including Version 2.0 With Source Code..........$50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners).... Re 
Bag of Tricks 2 (Quality Software)... .cccssccccccgeccscceces 29 5 
MacASM -- Macro Assembler for MacIntosh (Mainatay)...... 5 0 50 
S-C Documentor (complete commented source code of Applesoft OMs)..... 0 
i Assemblers for owners of S-C Macro Assembler.....$32.50 to $50 each 

Available: 6800/1/2, 6301, 6805, 6809, 68000, Z-80, Z-8, 8048, 
8051, 8085, 1862/4/5; PDP-11, GI1650/70, others 

Beagle Bros. A plesoft Compiler (Probos ONLY )occ</os scse os nes 74.95 65 
Copy II pate entral Point Software) ..cccccccccvccccccccece 23° 32 a8 
SoftSwitch (Roger Wagner Publishing)..cccccccccccvccccccesee ( $I9e95 


AAL Quarterly Disks... .cscccsccccccecvccccee each $15, or any four for $45 
Each disk contains the source code from three issues of AAL: 

Jan-Mar, Apr-Jun, Jul-Sep, and Oct-Dec. 
(All source code is formatted for S-C Macro Assembler. Other assemblers 
require some effort to convert file type and edit directives. ) 


Diskettes (with hub rings, sleeves, labels)..............box of 10 for 43 
voy) disk pages, 6"x8, 5m hold two disks each,...ccccccceccssee 10 for $6 
Diskette Mailing Protectors (hold 1 or 2 disks)......+..ee++-40 cents each 


Cardboard folders designed to fit 6"X9" Envelopes. ) or $25 per 100 # 


Envelopes for Diskette Mailers... ccccccsccccccccevccescceee 6 COntS each 
Sider 20 ge) itt Disk, includes controller & BOSLWRT OR See es) 695) $550 


Minuteman 250 Uninterruptible Power Supply.,.ccccccsccccvecees ($399 20 
5802 Microprocessor (Western Design Center)..ccccccccccscccecsscees $25 
uikLoader PROM System See eo oonreur Ter eet Ht 
ROmGRAMER CSORG ) savecorasa'eon-ouece lake elie aio ach aca eio ences oe lee sow awa ere O14 - 50 140 
"Exploring the Apple IIgs", Gary Be Little isos 3560646 ee eel Sle6 95 21 
neebie iigs Technical Reference", Fischer..cscccccccccverees ($19.95 19 
"658 16/65802 sssenbiy Language Programming", Fischer......+.($21.95 20 
"Pro ramming the 65816", yes & LACKEY vec vss was eeseewscweee ($22.95 21 
"Apple //e Reference Manual", Apple Computer.....cccvseccscee ( $24.95 2 
"Apple //o Reference Manual", Apple Computer.....cecccccccee ( $24.95 2 
"ProDOS-8 Technical Reference Manual", app 1s Computer......+«( $29.95 27 
"ProDOS-16 Technical Reference Manual", Apple Computer...... 29°22 2 
"Apple IIgs Firmware Reference", Apple Computer..c.cccccccee ( $24.95 2 
"Apple Ilgs Hardware Reference", Apple Computer.....cccoseee ( $24.95 2 
"ProDOS Inside and Out", Doms & Weishaar...ccccccccccccccess ( $10.95 1 
"DOStalk Scrapbook" Weishaar & Kers@yYscccccccccccsccccccvee ( SI4.95 14 
"Beneath Apple ProDOs", Worth & Lechner....ccccccccccevescee( $19695 18 
"Beneath Apple DOS", Worth & Lechner...cccccccccccccscvessee ($19095 . 
"Inside the Apple //o*, | Pia By oy oot Oe em ee mee PN EE 19.95 1 
"Inside the Apple //e", Little... .ccccccccccccccescceccccecs An 5 18 
"Understanding the Apple //e", Sather..ccccccsccccvescccsesee( So%e95 33 
"Understanding the nyeee TI, Satnen ooo s:5% 45.000 es coceweens leces 9D 2 
"Apple II+/IIe Troubleshooting & Repair Guide", Brenner..... aes 18 
"Assen. pa euege for Applesoft op ene Finle & Myers.($18.95 18 
"Now “hat You Know Apple Assembly anguage...", Gilder......($19.95 18 
"Enhancing Your Apple II, vol. 1%, Lancaster.......seeecceee ($15.95 15 
"Enhancing Your Apple II, vol. 2", Lancaster.....wesccveccee ( $17.95 17 
"Assembly Cookbook for the Apple II/IIe", Lancaster.........($21.95) $20 
"Microcomputer Graphics", MyersS..cccccccsvcccsecccesscescces ( SI4,95 14 
"Assembly Lines oars the Book 9 WABNEL .ccccccrccccvcceccconees 19.95 12 


# On these items add $2.00 for the first item and 
$.75 for each additional item for US shipping. 
+ Inquire for shipping cost. 
Forei customers enquire for postage needed. 
Texas residents please add 8% sales tax to all orders. 


#@8 S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 #@@ 


sedhadhad (214) 324-2050 eee 
#88 Master Card, VISA, Discover and American Express ### 
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Next I wrote the double lo-res version. The listing which 
follows can be appended to the listing on pages 7-10 in the 
August article. After assembly, executing the program named TC 
will clear the screen and draw four circles. They are drawn 
fast enough that they appear almost instantaneously. 


Lines 3270-3330 define a macro named CIRCLE, which make it eayy 
to call the CIRCLE subroutine. The three parameters are simply 
CX, CY, and R. Since this is double lo-res, the legal limits 
will be small. CX may be 0 to 79, CY may be O to 47, and R may 
be 0 to 23. Any larger R-value would force part of the circle 
to go off the screen. I did not put in any error checking in 
this version, so if you do try to go off the edge you will 
probably clobber something. In my hi-res version I put in code 
to avoid plotting off the screen. 


The code is basically a hand-compilation of the Applesoft 
version. The comments show the equivalent Applesoft 
statements. 


3270 Sanne nn ena neon == e 
3280 ~MA CIRCLE 
290 LDA # ? R 
300 LDX # cx 
10 LDY #jJ2 cY 
20 JSR CIRCLE 
Be . EM 
0 Wecscocucoesex eae es Set alaiele: 
50 TC 
O9BE- 20 8A 08 3360 JSR DLR Turn on Double Lo-Res 
O9C1= 20 DF 08 310 JSR CLRTOP Clear screen 
O9CH- AQ OF 3380 LDA #15 Set Color = White 
09C6= 20 64 F8 3 an JSR SETCOL 
tdi 3410 >CIRCLE 40,20, 19 
09C9=- AD 1 000> LDA #1 R 
O9CB- A2 2 0000> LDX #4 cx 
O9CD- AO 14 0000> LDY #20 cY 
O9CF- 20 F8 09 0000> JSR CIRCLE 
09D2- 420 >CIRCLE 40,27,4 
09D2- AQ O4 000> LDA #4 R 
OOD4- A2 28 0000> LDX #40 CX 
oaa- AO 1 0000> LDY fa cY 
O9D8=- 20 F8 09 0000> JSR CIRCLE 
O9DB=- 3430 >CIRCLE 30,15,3 
O9DB- A9 03 ~=—-0000> LDA # R 
O9DD=- A2 1E 0000> LDX #30 CX 
O9DF- AO OF 0000> LDY #15 cY 
O9E1=- 20 F8 09 0000> JSR CIRCLE 
O9E4- HO >CIRCLE 50,15,3 
OOE4- AQ O 000> LDA # h 
O9E6—- A2 3 0000> LDX #50 Cx 
O9E8- AO OF 0000> LDY #15 cY 
O9EA- 20 F8 09 arene JSR CIRCLE 
O9ED—- AD 00 CO 3) 0.2 LDA $C000 
O9FO=- 10 FB 3470 BPL .2 
O9F2=- 8D 10 CO Go a STA $C010 
O9F5=- 4c 80 08 3080 JMP TEXT 
3510 Bannnnnnnn nnn nen ne nnn nnn nena naan 
3520 CIRCLE 
O9F8- BE ? OA 230 STX CX get center coordinates 
O9FB- 8C OA 3540 STY CY 
O9FE- 8D 8F OA 3550 STA Y1 Y=R 
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OAO1- OA 
OA02= 49 
OAOX- 69 
OA06— 8D 94 OA 6 0 STA D 
10 Bene XY = CQ aenmncnnenennnwnnonnnn] 
OA09=- AJ O00 620 LDA #0 
OAOB- 8D 8E OA 3630 STA 


X1 
640 #---equiv. to lines 1050-1090---- 
650 .1 LDX X1 


Y1 
ie JSR eee ere 


o'r 
ey 
IHWIWIWO) WIL) WIC AIC) 
Ov VIM 
On 
oO Oooo 
r 
a 
oO 
Sh" 
Oey 
ms | 
<a 
wy OUND 
=" fs 
w 
8 
| 
] 
1 | 
iro wil 
NM wo! 
oe | 
wi a 
= i] 
Q 
i] 
] 
] 
| 
| 
| 


X1 
00 JSR PLOT.FOUR. POINTS 


6 
6 
1 

OA20- AD 94 OA 372 LDA D IF D<=0 THEN GO TO .2 
OA23= 30 ? I 0 BMI .2 
OA25= FO 1 0 BEQ .2 
OA2T- 38 3750 SEC D=zD + 4@(X-¥) + 10 
OA28=- AD 8E OA 3760 LDA X1 
OA2B- ED 8F OA 3770 SBC Y1 
OA2E- OA 780 ASL 
OA2F- OA 90 ASL 
OA30- 48 00 CLC 
OA31= 69 OA 10 ADC #10 
OA 2- CE 8F OA 3820 DEC Y1 
OA36= DO 07 8 : NE .3 
OA38=- AD 8E OA B50 02 LDA X1 D=D + 4#X + 6 
OA3B- OA 860 ASL 
OA3C= OA aa70 ASL 
OA3D=- 69 06 3880 ADC #6 
OA3F- 6D 94 OA 3639 3 ADC D 
OA42=- 8D 94 OA 3900 STA D 
OAN5=- EE 8E OA 3910 INC X1 X=z=X-+i 
OA4NS- AD 8F OA 3325 LDA Y1 IF Y <= X THEN GO TO .1 
OA4NB- CD 8E OA 230 CMP X1 
OANE- BO BE 3940 BCS .1 
0a50=- 60 3950 ‘ RTS 

0 BOO G@ BOC OS SS282 OSE BSF SSSS OFS OSFTFFES SQ 

QO PLOT.FOUR. POINTS 
OA AT BE 85 OA 13 STX 
OA54- g 3 OA 30 STY DY 
OA57—- 1 0 CLC PLOT CX+DX, CY+DY 
OA58- AD 33 OA 4010 LDA CX 
OA5B=- 6D 92 OA 4020 DX 
OA5E- A8 4030 TAY 
OA5F- 38 OA 4040 LDA CY 
OA62= 6D 2 OA 4050 ADC 
OA65= 20 Ad 08 4060 JSR DPLOT 
OA68- 38 4070 SEC PLOT CX+DX,CY-DY 
OA69- 96 OA 4080 LDA CY 
OA6C=- ED 93 OA 4090 SBC D 
OA6F- 20 A5 08 4100 JSR DPLOT 
OAT2=- 38 4110 SEC PLOT CX-DX, CY+DY 
OAT3— AD 95 OA 4120 LDA CX 
OATO= ED 92 OA 4190 SBC DX 
OAT9= A 4140 TAY 
OATA- 18 ai20 CLC 
OATB=- AD ae OA 4160 LDA CY 
OAZE- 6D 2 0 nike DY 
OA81= 20 A5 08 4180 JSR DPLOT 
OA8h4- 38 4190 SEC PLOT CX-DX, CY-DY 
OA85- 3° OA 4200 LDA CY 
OA88- ED 2 OA 4210 SBC D 
OA8B- 4C A5 08 ioae . JMP DPLOT 
OA8E- 42uO X1 -BS 1 
OASF- 4250 Y1 . 1 
0A90~ 4260 SX -BS 1 
OA91=- 4270 SY -BS 1 
OA92—- 4280 DX 1 
OA 37 4290 DY BS 1 
OA94= 4300 D -BS 1 
0A95—- 4310 CX ° 1 
0A96- 4336 CY BS 1 

9390 “Becendeo~ -sessaseeeod eae Secueao. 
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Next I wrote a normal hi-res version. The listing that tollows 
is a stand-alone program, but you could adapt it to work with 
Applesoft or to incorporate the CIRCLE subroutine in your own 
program. I used three subroutines in the Appleso{t ROM to do 
the actual plotting, so the Applesoft ROMs have to be switched 
on for the program to run. Since I ran it from within the DOS 
3.3 version of my aSsembler, I had to put line 1180 at the 
beginning to turn on the ROM. Line 1430 puts it back to the 
language card RAM. 


The demonstration part of this program starts at line 1170. I 
used a macro named CIRCLE again, but the definition is slightly 
different (see lines 1080-1140). Since the X-coordinate can 
now be from 0 to 279, it will take two bytes to store. 
Therefore I wrote my macro to first pick up the two bytes of 
the X-coordinate in X and Y, get the single byte of the 
Y-coordinate in A, and then call CENTER to store them in some 
standard variables. Then I pick up the radius in A and call 
CIRCLE. The demo draws two “faces” and two circles which go 
off the edge of the screen. The latter two demonstrate the 
feature I added to detect off-screen points and bypass plotting 
them. 


The Applesoft ROM subroutines I used are HGR, HCOLOR, and 
HPLOT. HGR turns on the primary hi-res screen and clears it. 
HCOLOR is inside the HCOLOR= processor, and expects a color 
value (0...7) in the X-register. HPLOT expects the 
X-coordinate in the A-register, and the Y-coordinate in the Y- 
and X-registers. Calling HPLOT is much faster in machine 
language, because all reference to floating point values is 
avoided. 


I wrote my own caller for HPLOT in lines 2590-2720. It first 
checks the coordinates to see if they are on the screen. If 
not, the subroutine returns without trying to plot. If they 
are on the screen, I save X and Y¥ and call HPLOT. I saved X 
and Y here so that I could use them again to plot another point 
with the same X-coordinate. 


I also added a tiny bit of error checking to the CIRCLE 
subroutine. If the radius is larger than 127 line 1560 catches 
it and rings the bell. I could have handled larger radii, but 
it would have required more of the arithmetic to be done in 
16-bit precision. 


Te rest of the code in CIRCLE is very similar to the double 
lu-res version. I had to go to 16-bit precision for the "D" 
calculations, and that is the main change. 


1000 SSAVE S.HIRES .CIRCLES 
1010 -OP 65 
1020 S-nemn nnn wn nn nnn eee nnn n nnn = 
F3E2- Meee HGR -EQ $F3E2 
Fa5T- 1040 HPLOT .EQ $F457 
F6FO- ABO HCOLOR .EQ $F6FO 
FBDD- i O MON.BELL .EQ $FBDD 


070; @ascen ook c cae e ee euseeeaseusesees 
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1080 .MA CIRCLE 
1990 LDA #]2 
1100 LDX #]1 CX-LOW 
1110 LDY /]J1 CX-HI 
1120 JSR CENTER 
1430 LDA #]3 
1140 JSR CIRCLE 
1150 . EM 
1160 #-------------- -- = 
119 TC 
O800- AD 81 CO 1180 LDA $008 1 SELECT APPLESOFT ROMS 
0803- 20 E2 F3 1190 JSR HGR Turn on HI-RES 
0806- A2 0 1200 LDX #3 Set Color = White 
0808- 20 FO F6 1210 . JSR HCOLOR 
O80B- 1230 >CIRCLE 40,20, 19 
O80B- AQ 14 0000> A #20 cy 
O80D=- A2 28 0000> LDX #40 CX-LOW 
O80F- AO 00 0000> LDY /40 CX-HI 
0811- 20 AC 08 0000> JSR CENTER 
O814=- AQ 1 0000> LDA #19 
0816= 20 B9 08 0000> JSR CIRCLE 
0819- 1240 >CIRCLE 40,27,4 
0819- AQ 1B 0000> A# 
081B- A2 28 0000> LDX #4 CX-LOW 
081D- AO 00 0000> LDY /40 CX-HI 
081F- 20 AC 08 0000> JSR CENTER 
0822- AQ O04 0000> LDA #4 
0824- 20 B9 08 0000> JSR CIRCLE 
0827- 50 >CIRCLE 30, 15,3 
0827- AQ OF 0000> DA cy 
0829=- A2 1E 0000> LDX #30 CX=-LOW 
O82B- AO 00 0000> LDY /30 CX-HI 
082D- 20 AC 08 0000> JSR CENTER 
08 39- AQ O 0000> LDA #3 
0832- 20 B9 08 0000> JSR CIRCLE 
0835- 1260 >CIRCLE 50,15,3 
0835- AQ OF 0000> LD 
) [ A2 32 0000> LDX #50 CX-LOW 
0839- AO 00 0000> LDY /50 CX-HI 
083B- 20 AC 08 O0C00> JSR CENTER 
O83E- Ad 0 0000> LDA #3 
O840- 20 BO 08 O0007 JSR CIRCLE 
0843- 1280 >CIRCLE 140,40, 39 
0843- AQ 28 0000> LDA #40 
O845- A2 8C 0000> LDX #140 CX-LOW 
O847=- AO 00 0000> LDY /140 CX-HI 
O849- 20 AC 08 0000> JSR CENTER 
O84C=} AQ 27 0000> LDA #39 
O84E- 20 BO 08 0000> R CI 
0851- 1290 >CIRCLE 140,47,8 
0851=- AQ 2F 0000> LDA # 
0853- A2 8C 0000> LDX #140 CX -LOW 
0855- AO 00 0000> LDY /140 CX-H 
0857- 20 AC 08 0000> JSR CENTER 
O85A- AX 08 0000> LDA # 


085c- 20 B9 08 0000> JSR CIRCLE 

085F- 3 >CIRCLE 130, 35 ; 
O85F- AQ 23 0000> LDA #35 é 

0861- A2 82 0000> LDX #130 CX-LOW 
0863- AO 00  0000> LDY /130 CX-HI 
0865- 20 AC 08 0000> JSR CENTER 

0868- A9 03. ~=—«0000> LDA #3 

O86A- 20 BO 08 0000> JSR CIRCLE 

086D- 1310 >CIRCLE 150,35,3 
O86D- AQ 2 0000> LDA £35 éy 
O86F- A2 9 0000> LDX #150 CX-LOW 
0871- AO 00 0000 LDY /150 CX-HI 
0873- 20 AC 08 0000> JSR CENTER 

0876- Ag 08 00005 LDA #3 

0878- 20 BO 08 0000>, JSR CIRCLE 

087B- 1330 >CIRCLE 140 ,60,80 
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CIRCLE 260,60, 30 
LDA 6 ; by 


0 CX-LOW 


LDY /260 CX-HI 
JSR CENTER 

LDA #30 R 

JSR CIRCLE 


MON .BELL 
Y1 Yi = R 
2*R 
BEEP e+e RADIUS TOO LARGE 
D D= - 24k 


#3 


X1 
Y1 
a coal tah 


X1 
PLOT.FOUR.POINTS 


Xi 6 + 4ex 
TIMES .FOUR 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches control defaults. 


IMPROVED | I! Jf INA MAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple I! 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple Ii features are supported such as HI/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and | Appie I! diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple !l on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple |! screen. Then use SCREEN GEN to transfer directly from the MAC to an Apple II (with 
SuperSerial card ) or lic. Includes Apple I! diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MiDI-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-MAGIC compatible 
with Apple i! family using Passport MIDI card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, il+, //e. Specify 
printer: Apple Imagewriter Apple Dot Matrix, C.itoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple I! machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables. displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
exert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 
The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 

Converts a ‘dumb’ parallel printer !/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title, large HIRES graphics & text screen dumps. Specify 
printer: MX-60 with Graftrax-80, MX-100, MX-80/100 with Graftraxplus, NEC 8092A, C.Itoh 8510 
(Prowriter), OkiData 62A/83A with Okigraph & OkiData 92/93. 

‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation’s Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone — 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 

RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple slot. Holds one user-supplied 2Kx6 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $C800-CFFF. 
C-PRINT For The APPLE //c: $69.00 


Connect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified. all Apple Il diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 0/7052 (201) 325-1885 
EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE 
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0932=- AD BE 09 2070 LDA TEMP+1 
09 37 6D B9 09 2080 ADC D+ 
0938- 8D B9 09 2090 STA D+1 
093B- EE BA 09 2100 INC X1 
O93E- AD B5 09 2110 LDA Y1 
0941=- CD B4 09 2120 CMP X1 
O944- BO 8F 2130 BCS . 
0946- 60 Sieg -99 RTS 
2160 TIMES .FOUR 
O947T- AO 00 oth LDY #0 
0949- 8C BE 09 2180 STY TEMP+1 
O94C- OA 2190 ASL 
O94D- 2E BE 09 2200 ROL TEMP+1 
0950—- OA 2210 ASL 
0951- 2E BE 09 2220 TEM P+ 
0954- 8D BD 09 2230 STA TEMP 
0957- 60 =. P 
$580 PLOT.FOUR. POINTS 
0958=- 8E B6 09 2 
095B- 8C B7 09 2280 STY DY 
O95E- 18 2290 CLC CX+DX , CY+DY 
bebe AD BA 09 2300 LDA CX 
0962=- 6D B6 09 2310 ADC DX 
0965- AA 2320 
0966- AD BB 09 2330 LDA CX+1 
0969- 63 00 2340 ADC 
O96B- A 2350 TAY 
096C- AD BC 09 2360 LDA CY 
O96F= 6D B7 09 2370 ADC DY 
O3te- 20 JE 09 23380 JSR CALL.HPLOT 
0 - 38 2390 SEC CX+DX , CY-DY 
0976=—= AD BC 09 2400 LDA CY 
0979=- ED B7 09 2410 SBC DY 
097C= 20 9E 09 2420 JSR CALL.HPLOT 
O97F- 38 ae he SEC CX=-DX, CY+DY 
0980- AD BA 09 24 LDA CX 
09 2 ED B6 09 2450 SBC DX 
0990— AA 2460 
O987- AD BB 09 2k70 LDA CX+1 
098A- rt 00 24 SBC 
098C- A 24 TAY 
O98D- 18 2500 CLC 
O98E- AD BC 09 2510 LDA CY 
0991=- 6D B7 09 2520 ADC DY 
0994- 20 9E 09 2530 JSR CALL.HPLOT 
0997- 38 25 SEC CX-DX , CY-DY 
0993- AD BC 09 2550 LDA CY 
099B- ED B7 09 2560 SBC DY 
2570 #@®  JMP CALL.HPLOT 
ONO) Basaeet oon ooo oe oe eoeeeeoweses 
2590 CALL.HPLOT 
099E- C9 CO 2600 CMP #192 
O9A0=- BO 11 2610 BCS .2 OFF THE SCREEN 
O9A2= CO 0 2620 CPY /280 
O9A4- 90 0 26 30 BCC .1 ON THE SCREEN 
O9A6—- DO OB 2640 BNE .2 OFF THE SCREEN 
O9A8~ EO 18 0 CPX #280 
O9AA- BO 07 2660 BCS .2 OFF THE SCREEN 
O9AC=- DA 2670 .1 PHX 
O9AD= 5A 0 PHY 
O9AE- 20 57 FH 2690 JSR HPLOT 
O9Bi- 7A SI 0 PLY 
O9B2=- FA 10 PLX 
09B3=- 60 2720 .2 RTS 
Sia ween nnn mmm nen nnoresosese= 
O9B4- 2740 X1 -BS 1 
09B5- 2750 Y1 -BS 1 
09 B6- 2760 DX -BS 1 
O9BT=- 2770 DY ° 1 
09BA- 90 CX . 2 
09BC- 2800 CY -BS 1 
09 BD- 5 a> TEMP -BS 2 
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Some IIgs DG MOB sss: e ecw ote rar hob 10 ae a ow 8 ho Sw OS wre oe DOD Urschel 


I thought some of my fellow AAL readers might like these two 
programs I wrote for my IIgs. Much of the information I needed 
to write them came from the excellent book by Gary Bond, 
“Inside the Apple IIgs“, from Sybex. 


The graphics demo program will display all of the 4096 colors 
that are available on the Apple IIgs, 256 colors at a time. 
Pressing any key except ESCAPE will display the next 256 
colors. There are 16 pages altogether. Pressing ESCAPE will 
exit the program. 


The little loop in lines 1480-1580 clears the Super Hi-Res 
picture buffer. Another way which you might think would be 
faster is to use the MVN instruction with an overlapping move: 


STZ $2000 

LDA ##$7FFE 

LDX ##$2000 

LDY ##$2001 

MVYN $E10000,$E10000 


However, this takes longer. The MVN takes 7 cycles per byte 
moved, and we are moving 8191 bytes. The loop I used takes 13 
cycles for each of 4096 byte-pairs. That is a savings of about 
4096 cycles, but that is not all of the story. MVN is both 
loading and storing bytes in bank SEl, which is a slow-ram 
bank. Two cycles out off every seven must run at 1 megahertz 
instead of 2.8 megahertz. In my loop only two cycles out of 
every 13 are in slow RAM. I'll let you figure out exactly what 
this means in microseconds. 


Notice above when I wrote the MVN instruction I used 24-bit 
values to specify the banks. A more intuitive MVN SE1,SEl will 
not work. This is because Bob S-C figured the natural thing to 
do would be to use the actual label names for the areas being 
moved, and these would be 24-bit addresses. For example: 


SHR.PIC .EQ $E12000 
STZ >SHR.PIC 
LDA ##8190 
LDX ##SHR.PIC 
LDY ##SHR.PIC+1 
MVN SHR.PIC,SHR.PIC 


The sound demo program makes use of the IIgs toolbox. The 
sound wave is generated by the Applesoft program listed below. 
I BSAVEd the Sine wave data after running the Applesoft 
program. From the S-C Assembler I loaded and assembled the 
sound demo program, then BLOADed the sine wave data, and then 
typed “MGO S"“ to play the sine wave through the Ensonig chip. 
Pressing any key stops the tone. 
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NowApple spe 
Three tines aster 


Introducing 
PC Transporter." 
The Apple® II expansion 
board that lets you 
run MS®-DOS programs. 
Now your Apple IT can run 
over 10,000 programs you could 
never use before. Like Lotus® 
1-2-3© MultiMate® dBASE TI 
PLUS® Even Flight Simulator® 
With PC Transporter, MS-DOS 
programs run on your Apple II 
like they do on IBM® PC's or 
compatibles. With one important 
difference. PC Transporter runs 
most of those programs three 
times faster than an IBM PC/XT® 
Plus, to speed through number- 
crunching tasks, you can use 
our optional 8087-2 math co- 
processor chip. It plugs into a 
socket on the PC Transporter. 
Less expensive than an 
IBM clone. 
Sure, a stripped-down IBM 


clone costs about the same as 
the PC Transporter. But the pe- 
ripherals it takes to get the clone 
up and running make the clone 
cost about three times what our 
American-made card costs. 

You don’t have to buy new 
hardware to use PC Transporter. 

Works with the hardware you 
already own. 

With PC Transporter, MS-DOS 
programs see your Apple hard- 
ware as IBM hardware. You 
can use the same hardware you 
have now. 

With IBM software, your Apple 
hardware works just like IBM 
hardware. Including your drives, 
monitors, printers, printer cards, 
clock cards and serial clocks. 


aks IBM. 
than IBM. 


i 
i 
| ! 


You can use your He® or HGs™ 
keyboard with IBM software. Or 
use our Optional IBM-style key- 
board (required for the II Plus ). 

You can use your Apple mouse. 
Or an IBM compatible serial 
mouse. 

Plenty of power. 

PC Transporter gives you as 
much as 640K of user RAM 
and 128K of system RAM in the 
IBM mode. 

PC ‘Transporter also is an Apple 
expansion card, adding up to 
768K of extra RAM in the Apple 
mode. The Apple expansion alone 
is a $300 value. 

Easy to install. 

You can install PC Transporter 
in about 15 minutes, even if 
you've never added an expansion 
board. You don’t need special 
tools. Simply plug it into an Apple 
expansion slot (1 through 7 ex- 
cept 3), connect a few cables and 
a disk drive, and go! 
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PC Transporter taps into the worlds largest 
software library. Now your Apple can 

run most of the IBM software you use 

at work. And it opens a new world of 
communications programs, games and 
bulletin boards. 


A universal disk drive 
controller. 

PC Transporter supports 3.5” 
and 5.25” MS-DOS and ProDOS 
formatted diskettes. You'll shift in- 
stantly between Apple ProDOS 
and IBM MS-DOS. 

You'll need our versatile 5.25” 
360K drive system to run IBM 
applications from 5.25” floppy 
disks. Use your Apple 5.25” drive. 
for Apple 5.25” disks. 

An Apple Disk 3.5 Drive will 
support the new 3.5"disks 
whether they’re IBM MS-DOS 
formatted or Apple ProDOS for- 
matted. The PC Transporter acts 
like an Apple Disk 3.5 Drive disk 
controller for IIGs, Ile, and II 
Plus users. 

PC Transporter supports 
up to 5 drives in a number of 
combinations. 

For example, you can connect 
a 5.25 Applied Engineering 360K 
dual-drive system directly to the 
card. Then plug two daisy-chained 
Apple 3.5 Drives (not the Apple 
UniDisk 3.5) to the dual-drive 
system. For a fifth drive, use a 
ProDOS file as an IBM hard disk. 


PC Transporter controls Apple and IBM 
compatible disk drives. It supports 3.5" and 
5.25" MS-DOS and ProDOS formatted 
diskettes. 


Versatile data storage. 

PC Transporter reads MS-DOS 
and translates it into Apple native 
ProDOS. You can store IBM pro- 
grams and data on any ProDOS 
storage device including the 
Apple 3.5 Drive, Apple UniDisk™ 
3.5, Apple 5.25” drive, SCSI or 
ProDOS compatible hard drives. 
(You can use the Apple UniDisk 
3.5 with its own controller card 
for storing programs and data, but 
not for directly booting an IBM 
formatted disk. ) 

You can even use our 360K PC 
compatible drive for ProDOS 


Make your Apple speak IBM. 


PC Transporter memory choices. 
RAM in RAM in 

Apple mode: IBM mode: Price: 
384K 256K $489.00 
512K 384K 529.00 
640K 512K 569.00 
768K 640K 609.00 

Note: The IBM mode is 128K less because 


the PC Transporter uses 128K for system 
memory. 


lics Installation Kit 


He/ll Plus 
Installation Kit 39.00 


PC Transporter Accessories 
5.25” IBM Format 360K 
Drive Systems 
Single-Drive System 
Dual-Drive System 399.00 
Half-Height Drive 135.00 


(add to Single-Drive system to make 


Dual-Drive ) 


(required for Apple I! Plus. Requires 
IBM Keyboard Cable. ) 
34.00 


IBM Keyboard Cable 
Sony RGB Monitor 499.00 
Analog RGB Cable 39.00 


(for use with Sony monitor ) 


se RGB Cable 


r use with Sony monitor ) 
Digital RGB Adapter 
ColorSwitch 


(included with Ics Installation Kit) 
128K ZIP 40.00 
PC Transporter per set 


Memory Expansion 


49.00 


269.00 


229.00 
69.00 
(ile and II Plus only ) 


See your dealer or call or send 
check or money order to Applied 
Engineering. MasterCard, VISA and 
COD welcome. Texas residents 
add 6'4% sales tax. 


PC Transporter produces better IBM graphics 
than IBM. Analog is sharper than digital 
$0 with an analog RGB monitor, PC 
Transporters CGA graphics and text are 
superior to IBMS digital display — even 
while running IBM software! 

And, you can also use an Apple composite 
monitor in IBM text or graphics mode. 


storage and a 143K Apple 5.25” 
drive for MS-DOS storage. 

Created by Apple's original 

designers. 

The brains behind PC Trans- 
porter were also behind your 
Apple II. 

The PC Transporter design 
team includes the former project 
managers for the creation of the 
Apple Ile and IIc. The co-designer 
of the Apple II disk controller. 
And the first full-time Apple 
programmer and author of the 
ProDOS operating system. 

So you know the PC Trans- 
porter and your Apple were made 
for each other. 

Support and service from thé 
leader in Apple add-ons. 

Applied Engineering sells more 
Apple peripheral boards than any- 
one else — including Apple 
Computer. So you know we'll be 
around after the sale. 

PC Transporter comes with a 
15-day money back guarantee. If 
you're not fully satisfied after 
using it, return it for a full refund. 
PC Transporter also comes with a 
l-year warranty. 

How to get your PC 
Transporter today. 

See your dealer. Or call Applied 
Engineering any day between 
9 am. and 11 p.m. CST at 
214-241-6060. 


Fa. wal Applied Engineering 
The Apple enbancement experts. 


PO. Box 798, Carrollton, TX 75006 
214-241-6060 


A Division of AE Research Corporation. 


Apple (0 Plus musi ity ne Ceetificd, IBM and PO XT are registered trademarks of Intemational Business Machines. Latus and 1 2-4 arc registered trademarks of Lotus Development Copporation. Mulu Mate and dBASE TIDE PLUS arc coggstercd 
sof Ashton Tate. Ing MS and Flight Simulator are rogistercd: trademario of Microsoft: Apple He and ProDOs arc registered trademarks and Hs and UaiDisk are tradcaiarks of Apple Computer 
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0008 12- 
00 VF 
0008 14- 
0008 16— 


0008 1E- 


000820- 
000823- 


0008 3D- 


000857- 


CO 
co 


CO 


Pee ee eh eee 
# uper hires 256 color demo 
: BBE 7 ru 
1080 -op 65816 
1100 # 
1120 scb.buff eq 9d00 Scanline Control Buffer start 
1140 pix.buff .eq 2000 Start of pixel buffer 
1160 al.buff .eq 9e00 Palette data 
1180 kbd eq c000 
1200 kbd.strb eq c010 
1210 shr.sw eq c02 super hires switch 
ay) border eq CO34 border color stored here 
1240 s cle native mode 
1290 xce 
1280 lda #$c1 turn on super hires 
1300 sta shr.sw 
1346 lda border 
1340 pha save border color 
1360 and #$f0 set border to black 
1380 sta border 
1400 lda #$e1 super hires in bank $e1 
1420 pha 
1466 fae #$30 16 bit 
re regs 
1480 # clear shr buffer 
1500 ldx ##$7ffe clear 32k 
1520 .1 stz pix.buff,x 
1540 dex 
oH 
1380 bce” OO OS SOO OOO es @Oeee eee 
1620 ® set up SCB's 
Abee : 12 lines per SCB 
1680 setscb lda ##0 start with palette #0 
1700 ldx ##0 
1720 .2 ldy ##6 repeat for 12 dis lay lines (a twofer) 
1740 .1 sta scb.buff,x index into SCB buffer 
1760 inx double inx since acc = 2 bytes 
1780 inx 
1800 dey done yet? 
1820 bne .1 no, else.. 
1S cle 
1860 ade et eete set up SCB for next palette 
1880 comp ##$1010 16 palettes yet? 
1900 bne .2 no 
13i0 fee m ewe meme nnn ene eoeneeeone 
1940 # set up pixel data 
1960 # 
1980 setpix ldx ##0 
2000 . lda ##0 
2020. ldy ##5 320 mode/16 per line = 20 bytes 
2040 . sta pix.buff,x 
2060 inx 
2080 inx 
2100 dey done 20 pixels yet? 
2120 bne .1 no, else.. 
2140 ele 
2160 ade ##$1111 get next palette number 
2180 emp ##31110 16 palette colors yet? 
2200 bne .2 no, else.. 
2220 cpx ##$7800 end of display buffer yet? 
2240 bne .3 no, else.. 
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ay : set up 256 colors in palettes 

AU Ee 43 00 00 2320 setcol lda ##0 
00085C- A2 00 00 2340 .2 ldx ##0 first palette 
OOO85F=- 9D 00 9E 2360 .1 sta pal.buff,x save color 
000862- 18 2380 cle 

63- 69 01 00 2400 ade ##1 ine color value 
000866— E 2420 inx 
000867- E8 2440 inx 
000868- EO 00 02 2460 cepx ##$200 fill 512 byte palette table 
OOO86B- DO F2 2480 bne .1 
OO0086D- 48 2500 pha save acc for next 256 colors 
O0086E- E2 20 2520 sep #$20 8 bit aco 
000870- 00 CO 2540 .3 lda kbd 
00 - 10 FB 2560 bpl .3 
000875- 8D 10 CO 25380 sta kbd.strb clear keyboard strobe 
000878- C9 9B 2600 cmp #$9b esc? 
OOO87A- F 3 2620 beq end 
OOO87TC- C2 2 2640 rep #$20 

E- 68 2660 la get last eorors 
OO087F- 80 DB eoRe ‘ ra .2 isplay next 256 colors 

2720 end 

000881- E2 30 2740 sep #$30 back to 8 bit regs 
000883- 68 2760 pla clean up stack 
000884- 68 2780 pla 
0008 85- ha 00 2800 lda #0 
000887- 2820 pha 
Boe 8 AB 2840 plb back to bank $00 
000889- 2 be sec emulation mode 
OOO88A- FB 2 xce 
OOO88B- AQ 01 2900 lda #$01 
00088D- 8D 29 CO 2920 sta shr.sw turn off super hires 
000890- 68 2940 pla get back border color 
oO Og ok. gD 34 CO £386 sta border 
000894- 60 2 rts 


Enter Soft sasic-tike Macros for the S-C Macro Assembler. These macros are 
‘Integer Basic Macros which can perform most of the standard Basic 
commands using 8/16/52/64 bit manipulation. Included area set of 
graphic commands to perform block graphics and other Hi-Res 
Animation. Available in either DOS 3.3 or ProDos Format. Either one 
for $30.00 or BOTH for $50.00. 


2 Shape A shape table program unlike any other program you have ever run. 

Table This one is completely set up in a fogical manner. All disk operations 
are under one section. All editing functions are contained in one 

ro gram: place. All Hi-Res functions are in one place. The entire source code - 
is included to allow you to modify it as you need to! The DOS 3.3 
Version is only $20.00 - AND SO 18 THE PRODOS VERSION!!!! Both 
Versions for only $30.00. ORDER YOURS TODAY!!! 


~ 


To Order: Send check or Money Order To: Upgrades for EnterSoft from DOS 
5.5 to ProDos is $20.00. Get yours 
Mark Manning today! 
c/o Simulacron 1/Baggy Games ¥, NAAN NAAN A AARAAAAAAAL 
P.O. Box 591894 Thanks Everyone For Your 
Houston, Tx 77259-1894 Comments and Support! 
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E10000- 


000800- 
000801- 
000602- 
000804- 
000807- 
00080A- 
00080E- 
°000811- 
00081 4- 
000817- 
00081A- 
O0081E- 
000820- 
000823- 
000825- 
000828- 
00082A- 
00082D- 
000830- 
000834- 
000837- 
00083B- 
00083C- 
00083D- 
00083F- 


000300- 
000304- 
000306- 
000308- 
00030A- 
00030B- 
00030C- 
000310- 


1020 * Sound Demo 
1040 * 8-1-87 ru 
1060 * 
1080 .OP 65816 
1100 Toolbox eq $e10000 
1120 * 
1140 S cle Native Mode 
1160 xce 
1180 rep #$30 16 bit registers 
30 1200 pea $3000 GCB’S (Used by Toolbox: 256 bytes long) 
02 1220 ldx ##$0208 SoundStartup Tool 
00 E1 1240 Jsl Toolbox 
00 1260 pea $0001 push the generator number and $01 
00 1280 pea $0000 Push location of param table: 
03 1300 pea $0300 4 bytes - z,b,h,] 
OE 1320 ldx ##$0e08 StartSound tool cal! 
00 E1 1340 Js! Toolbox 
1360 sep #$20 set a reg to 8 bits 
CO 1380 .1 Ida $c000 Walt for keypress 
1400 bp] .1 
CO 1420 Ida $c010 Reset keyboard strobe 
1440 rep #320 set a reg to 16 bits 
FF 1460 pea $ff7f push the mask to stop all generators 
OF 1480 ldx ##$0f08 StopSound too] 
00 E1 1500 Jsl Toolbox 
03 1520 Idx ##$0308 SoundShutdown tool 
00 E1 1540 Js] Toolbox 
1560 sec 
1580 xce back to emulation mode 
1600 sep #$30 
1620 rts 
1640 %------ 2-2-2 nnn nnn 
1660 * parameter table 
1680 .or $300 
00 00 1700 -hs 00.20.00.00 Wave Table addr in main ram: |,h,b,z 
1720 -hs 04.00 wave table is four pages long 
1740 -hs 00.0A frequency: 1,h 
1760 -hs 00.00 Wave Table addr in dedicated ram: 1!,h 
1780 -hs 02 buffer size In dedicated ram: 256%*2*val 
1800 -hs 00 always $00 
00 00 1820 -hs 00.03.00.00 next parameter block: |1,h,b6,z 
1840 -hs ff volume level 
1000 REM 
SINE WAVE GENERATOR 
4 CYCLES X 256 BYTES/CYCLE 
1024 BYTES TOTAL 
1010 A = 8192 
1020 R = (2 * 3.14159) / 360 


1030 FOR J=1T04 

1040 FOR I = 0 TO 361 STEP 1.411765 

1050 S = INT ( SIN (R # I) #* 128 + 128): 
1060 POKE A,S: PRINT S,A:A =A + 1 

1070 NEXT : NEXT 


IF S = 0 THEN S = 1 
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Warning about 65816 JMP Indirect..........-BOb Sander-Cederlof 


I discovered it the hard way: JMP (addr) and JML (addr) do not 
act quite like I expected them to. 


In these two instructions the assembled address is a 16-bit 
value, telling the processor where to look to find the address 
you want to jump to. In the first form, JMP (addr), the 
effective jump address will be a 16-bit value, so the next 
instruction will be executed within the same bank as the JMP 
instruction. In the second form, JML (addr), the effective 
jump address will be a 24-bit value, specifying the new bank as 
well as the position in the bank. 


But which bank does the processor look in to find the indirect 
address? There are three possibilities: it could look in the 
bank specified by the Data Bank Register, the bank specified by 
the Program Bank Register, or it could always look in Bank $00. 


I ran into this after successfully using the JMP (addr,X) and 
JSR (addr,X) forms, in which the processor looks for an address 
table in the bank specified by the Program Bank Register. This 
is natural, because the table of addresses being accessed most 
likely is in the same bank as the JSR or JMP. It is only 
Slightly restrictive, in that it requires me to be CERTAIN the 
table of addresses is in the same bank. 


Naturally I assumed the JMP (addr) worked the same way. 
Naturally my assumption was wrong, and wasted a lot of time. 
Actually, the processor always looks in bank $00 for the 
indirect address when you use JMP (addr) or JML (addr). Bank 
$00? I don't know why. But it is right there in black and 
white on pages 379 and 383 in the Eyes & Lichty book. Strange. 


The only rationale I can think of is that the indirect address 
might be stored in page zero. Come to think of it, this is a 
pretty common practice and hence it is probably a pretty good 
thing the processor works this way. One more thing to 
remember, though. 


Here is a table showing all of the JMP and JSR forms, with the 
page number from the Eyes & Lichty book, the opcode value, the 
bank used for the indirect address, and the bank jumped into: 


indirect destination 


Eyes Opcode & Syntax bank bank 
379 4c JMP addr N/A PBR 
383 6C JMP (addr) $00 PBR 
382 7C JMP (addr,X) PBR PBR 
385 5C JMP long n/a stated 
or JML long 
384 DC JML (addr) $00 stated 
379 20 JSR addr n/a PBR 
382 FC JSR (addr,X) PBR PBR 
385 22 JSR long n/a stated 
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By the way, I used the syntax JML (addr) for the long 
absolute-indirect Jump. Other assemblers use the syntax JMP 
[addr]. I chose the bracketless form because the older Apples 
have no left-bracket on the keyboard. 


The form JMP (addr) is used in some existing programs written 
for the //e and older machines, referencing addresses which are 
within the body of the program. One such example is inside the 
code of BASIC.SYSTEM, where it stores the address of the code 
to process a command in a variable (not in page zero), and then 
JMPs indirect. Programs which do things like this will not run 
correctly if they are relocated to higher banks in a blind 
fashion, by merely setting the PBR and DBR to the new bank and 
expecting it to run. As I said, I learned the hard way. 


You can make it work by setting X=0 and using the JMP (addr,X) 
form. 


I mentioned using the JSR and JMP (addr,X) forms. These are 
very useful when you have a command processor that needs to 
branch or call according to a command index. We used to have 
to use a method which pushed an address from a table on the 
stack and then did an RTS. For example, a JSR 
COMMAND.DISPATCHER could call a command processor like this: 


COMMAND.DISPATC HER 

LDA command.number 

ASL double it 

TAX 

LDA command,.table+tl ,X high byte 

PHA 

LDA command.table,X low byte 

PHA 

RTS “Jump” to the command routine 
command.table 


~-DA cmd.0-1,cmd.1-1,cmd.2-1 
~-DA cmd.3-1,cmd.4-1,cmd.5-1 


Now we can do it an easier way. For example, the code segment: 


LDA command.number 
ASL double it 


JSR (command.table,X) 


can call any of a series of subroutines whose addresses are in 
a list like this: 


command.table 


DA cmd.0,cmd.1,cmd.2 
-DA cmd.3,cmd.4,cmd.5 
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Eight QUCENS 6 6.662 Sos Sw ow eS week ow Oa Se eke een Goetz 


"Eight Queens” is a classic chess puzzle. The Eight Queens 
problem is, how many ways can you put eight queens ona 
chessboard so that no queen can capture another? Obviously, 
each queen will have to be in a different row. Still, there 
are 8°8 = 16,777,216 ways to put eight queens on a board with 
each one in a different row. This is clearly a 
computation-intensive problem, 


If you were to try to solve this problem in LISP on an 
8-Megabyte VAX system (as AI programmers have a nasty tendency 
to do), you would end up with a recursive routine which might 
give you an answer the same day. I was curious how fast an 
Apple II can solve it, eSpecially since there are 8 positions 
in each row of a chessboard, and 8 bits in a byte.... 


I wrote a brute-force routine. My chessboard is a 8*9 array. 
At all times, exactly one of the 9 positions in each of the 8 
rows has a queen. The rightmost (9th) position in each row 
(held by the carry) is a placeholder which does not count 
toward a solution. It works like this: 


Put all queens in the 9th position. 
X=] 
Queen: Rotate the queen in row X left. 
If the queen was rotated from the leftmost 
position back into the 9th, then: 


Backtrack: X=X-1] 
If X=0 then end. 
Go to Queen. 


If the queen in row X is in the same column 
or diagonal as another, go to Queen. 
If X=8: 
Print this solution. 
Go to Backtrack. 
X=X+1 
Go to Queen. 


As written, QUEENS takes 19 seconds to display all 92 
solutions, and just 1.9 seconds to find them without 
displaying. The mathematically minded may say, "But 92 is not 
a multiple of 8!° Since a chessboard can be flipped and 
rotated to get 8 symmetries, you expect a multiple of 8 
solutions. But one of the solutions is the same when rotated 
1&9 degrees, thus it provides only 4 symmetrical solutions. 
There are 12 unique solutions in all. 


My display routine, in lines 1620 through the end, works best 
in 40-column mode. It displays what really looks like a chess 
board, using inverse blank or inverse Q for one color and 
nermal blank or Q for the other color. 
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Bob S-C wrote an alternate display routine, shown after my 
listing as lines 1900 and following, which displays the 
solutions in numeric form. This is considerable faster, and 
all 92 solutions will fit on one 80-column screen. In Bob's 
notation, one digit is displayed for each row of the chess 
board. The digit shows the position of the queen on that row, 
with 0 being the leftmost square and 7 being the rightmost 
square. Bob used conditional assembly to control which display 
routine is assembled. When line 1000 says “GOETZ .EQ 1" my 
routine is assembled; when it says “GOETZ .EQ 0“ Bob's routine 
is assembled. 


01- 1000 GOETZ .EQ 1 
sey 8. EIGHT QUEENS .RBSC 
10- 10 BOARD -EQ $10 thru $17 
2- 1050 MON.INVFLG .EQ ee 
8E- 1000 MON.CROUT .EQ 8E 
FDED- us MON . COUT -EQ $FDED 
1090 QUEENS 
SB0D- A900 «1440 CDA #0 
O804~- 95 10 1120 .0 STA BOARD,X 
oe a ae 
io ae #---Next row down---------------- 
ORDA EO 08 tT CPX #8 ates 
0 OC- FO 3E 1180 BEQ .9 -oe-Finished, have a solution 
O80E- 38 By C INTRODUCE 1 QUEEN INTO ROW 
1200 #--=-Next post iacn in roWereeeneee 
O80F- 36 10 1210 . ROL BOARD, 
abaae a 34 ae aya 3 THIS ROW FAILED, BACKTRACK 
0814—- FO F3 1380 BEQ .1 -.-First row, any position okay 
1oep #.--Test if any in same column--- 
0816— A8 1260 TAY START WITH CURRENT ROW 
0817= BJ 10 00 Us LDA BOARD, Y 
081A= D9 OF 00 1280 .3 CMP BOARD-1,Y 
081D=- FO 25 1290 BEQ .7 eee Same column 
Saad. BO FB 1340 BNE 3 
1320 #---Test if any in same /e------- 
aoe in aay START WITH CURRENT ROW 
0824- BX 10 00 1350 LDA BOARD,Y 
O827— HA 1360 .4 LSR CHECK */* DIAGONAL 
0828—- BO 08 1370 BCS .5 DIAGONAL RAN OFF EDGE 
O82A- DI OF 00 1380 CMP ARD-1,Y 
O82D=- FO 15 1390 BEQ .7 oeeON SAME DIAGONAL 
Sai Bes NS BEE 
1420 #---Test if any in same \-eor---- 
re BA vie 5 ray START WITH CURRENT ROW 
0834h- B9 10 00 1450 LDA BOARD, Y 
0 - 0 1420 .6 ASL *" CHECK "\" DIAGONAL 
Op aa By or 00 1kb0 mae ee ee 
083D- FO 05 ~—- 1490 BEQ .7 *  e0N SAME DIAGONAL 
Si: HB rs Bg 
1520 ®---This position looks good ieee 
O842- FO C5 1225 ‘ ALWAYS 
1540 #---This sition failed--<------- 
O84h- 18 re oT CL 
ihe. ee 
O847— 1260 8 CLC 
Site cg 18 BE) SETA uc 
oie a és 1610 RTS ' NO MORE SOLUTIONS 
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1620 #---Print the solution----------- 
yas ~DO GOETZ 
O84C- 20 8E FD 1640 .9 JSR MON.CROUT 
O84F- A2 1650 LDX #0 
0851- B5 10 1660 .10 LDA BOARD,X 
0853- 4 igo PHA 
0854=- AO 08 1680 LDY #8 
0826- A5 32 ib Ae 11 LDA MON.INVFLG 
0858- 49 CO 1700 EOR ase 
O85A- 85 32 1710 STA MON .INVFLG 
085C- 68 1720 PLA 
O85D- OA ie ASL 
O85E- 48 1740 PHA 
O85F- AQ AO 1750 LDA #" * 
0861- 90 02 1760 BCC .12 
0 6 - AQ D1 770 LDA #*Q* 
0 - 20 ED FD 1780 .12 JSR MON .COUT 
0868- 88 hae DEY 
0869- DO EB 1800 BNE .11 
O86B- 68 1810 PLA 
086C=- A5 32 1820 LDA MON. INVFLG 
O86E=- 49 CO 1830 EOR #$CO 
0870- 8 2 1840 STA MON .INVFLG 
8 - 20 bE FD | 28 JSR MON .CROUT NEXT ROW 
- _E INX 
0876- EO 08 mais CPX #8 
0878- 90 D7 1880 BCC .10 
1890 - ELSE 
2060 FIN 
O87A= 4C AT 08 A : P JMP .8 Will CLC, set X=7, go to .2 
00- 1000 GOETZ .EQ 0 
1630 -DO GOETZ 
1890 - ELSE 
O84C- A2 00 1900 .9 LDX #0 
O84E- B5 10 1910 .10 LDA BOARD,X 
ta AO 00 1920 LDY #0 
0852—- OA 1 30 o11 ASL 
0853- BO 03 1940 BCS .12 
0855- C8 1 70 INY 
0 2 - DQ FA 1960 BNE .11 
0 - 9 1 ie 12 TYA 
0859- 09 BO 19380 ORA #*0* 
O85B- 20 ED FD 1990 JSR MON.COUT 
O85E- E8 2000 INX 
O85F- EO 08 2010 CPX #8 
0861- 90 EB 2020 BCC .10 
0863- AQ9 AO 2030 LDA #" * 
0865- 20 ED FD 2040 JSR MON .COUT 
0868- 20 ED FD 2050 JSR MON .COUT 
2060 FIN 
O86B- 4C 47 08 2070 JMP .8 Will CLC, set X=7, go to .2 


DON LANCASTER STUFF 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video wih Don Lancaster 
sharing many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $6 
toner refilling, the full Kroy 


Kolor detalils, page layouts, 


plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 


ASK 
THE GURU 


An entke set of reprints to 
Don Lancaster's ASK THE 
GURU columns, ail the 
way back to column one. 
Edited and updated. 


Both Apple and desktop 
publishing resources are 
Included that are not to be 
found elsewhere. 


$24.50 


APPLE llc/lle 
ABSOLUTE 
RESET 


Now gain absolute control 
over your Applel You stop 
any program at any time. 


Eliminates all dropouts on 


your HIRES screen dumps. 
Gets rid of ail hole blast- 


ing. For any lic or lle. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 


POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VISA/MC 


(602) 428-4073 
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Nifty Sonic SignalsS......ceccseecceseveeeesBOb Sander-Cederlof 


Some years ago I wrote version 2 of the PromGramer software for 
SCRG. One of the new features I added, at the request of 
Phil's wife, was a pair of termination tunes. If an EPROM 
successfully programs, the program twiddles Apple's speaker 
just right to make a cheerful four-note fanfare. Failure, on 
the other hand, sounds a six-note SS siren. 


I call the two tunes NICE and NASTY, and I thought you might 
like them for your own programs. If not, the same driver can 
be used to make other tunes. You can play the NICE tune by 
Calling NICE, or NASTY by calling NASTY. 


The tunes are encoded in lines 1280-1320. Each note takes two 
bytes, the first specifying the length of a half-cycle and the 
second specifying the number of half-cycles. In other words, 
pitch and duration. I arrived at the numbers by counting 
machine cycles for the loops, figuring in the Apple clock speed 
and the frequency for middle-A, and calculating a few notes by 
hand. Not very sophisticated, but it works nicely. 


I decided to try writing a different one, using a technique 
that plays equal length notes. Lines 1600-1730 are the note 
player. Lines 1750-1820 call on it to play the NICE tune. 
PLAY.NOTE.A counts down a duration count simultaneously with 
the pitch count, so that you get the same total duration 
regardless of the pitch. This method is not original with me, 
but I don't remember where it came from. (Maybe the original 
Apple documentation.) 


The $C030 Apple speaker may be obsolete beside the IIgs Ensoniq 
chip, but I still like it. R2D2 was no Caruso, either.... 


1000: @istete see esos esee ese uss 
1010 #SAVE S.SIGNAL. TUNES 
00- 1030 71 «EQ $00 
O1- 10 0 T2 -EQ $01 
0800- 40 00 1060 NICE LDY #TUNE. NICE 7 
0803= AO 09 1080 NASTY LDY #TUNE. NASTY 
0805- B9 22 08 1100.1. + LDA TUNES,Y 
opens Be gy (1488 et 
Be: BE GF °° 11 BE Hwee 
1150 @2--PLAY THE NOTE---~------=---—- 
O811- AD 30 CO 1160 .2 LDA $c030 
0814- a6 00 1170 LDX 11 
0816— CA 1180 . DEX 
0817- DO FD ~——: 1190 BNE . 
0819- C6 01 1200 DEC T 
a Cera 
OBIE GB 1380 INY 
08 IF - DO EX 1250 BNE .1 .. ALWAYS 
0821- 60 126 0 4 RTS 
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O83E- AD 00 CO 
oBag- D 10 CO 


0858- 28 af 08 


O85F- 4C 3E 08 


O86D- 2C 30 CO 


01 
O89B- DO F1 
O89D- 60 
O389E- R 10 CO 


1280 
1290 


oa’ at 


TUNES 
TUNE.NICE .EQ #-TUNES 


BB. 8A..94.AD..BB. 8A..7C.CE..00 
UNES 


0 HS 


.HS 

TUNE .LO ei EQ 

TUNE.HI- a #_TUNES 
S 94. 


20 
1350 

1 20 ; AD..00 

HY ie wee eS POs Sewer eseeeeeeeon ences 
1380 T 

1 0 1 LDA $C000 

1460 BPL .1 

1410 STA $C010 

1420 EOR 0 

139 CMP 

14 ho BCC .2 

1829 RTS 

1460 .2 SEC OOOOOABC 1 
79 ROR 100000AB C 
1480 ROR C100000A B 
1420 ROR BC100000 A 
1500 .3 PHA 

1239 LDY # TUNE .LO 

1520 BCC . oe e LOW 
1530 LDY #TUNE .HI 

15ho .4 JSR PLAY. TUNE 

1320 PLA 

1560 ASL B C1000000, C 1000000, 1 0000000 
1570 BNE 3 DO B ORC 
2 ° : JMP . FINISHED 
1260 PLAY.NOTE.A 

1610 TAX 

1620 LDA /12000 

16 30 SEC 

1640 STX T1 

1650 . DEX 

1660 BNE “9 

1670 .2 LDX T 

1680 BIT $C030 

1690 . DEY 

1760 BNE .1 

1710 SBC #1 

1720 BCS .1 

1 FI RTS 

1740 # eS OO SOS SO SSSSSSSSSSOT 22S eonene 
1 20 M.NICE LDA #$5D 

1760 JSR PLAY.NOTE.A 

1770 LDA #$4A 

1780 JSR PLAY.NOTE.A 

1790 LDA #$5D 

1800 JSR PLAY.NOTE.A 

1810 LDA #$3E 

20 ‘ JMP PLAY.NOTE.A 

1840 Mm 

1850 LDA #20 

1860 .1 PHA 

1870 BIT $C000 

1880 BMI .2 

1890 JSR PLAY.NOTE.A 

1900 PLA 

1910 CLC 

1920 ADC #1 

19 30 BNE .1 

19H0 RTS 

1950 .2 STA $C010 

1960 PLA 

1970 RTS 

1900 Seeeecccceecmewecnesesecccceeu ces 


94. AD..BB. 8A..94.AD..BB. 8A..94.AD..BB.8A.. 00 
*-TUNES 


A New BASIC for the IIgs 


Apple has announced their new BASIC interpreter for the IIgs. 
No, it is not an upgraded Applesoft. It is a totally different 
version, appearing to me to be based on the old Apple /// 
Business Basic. GSBASIC runs under ProDOS-16, and supports all 
of the IIgs tools and features. 


Features include 9- or 15-digit precision in floating point 
with exponent range from ~-308 to +308, plus short and long 
integers (sounds like SANE); PRINT USING; variable names up to 
30 characters long; use of labels rather than line numbers for 
GOTO and GOSUB; editing features including search/replace; 
built-in disk file I/O commands; direct statements for access 
to the various IIgs Tools; and, you guessed it, more! The 
scheme for linking to assembly language code is the same as in 
Apple /// Business Basic, via INVOKE, EXFN, and PERFORM 
statements. 


Negatives include the new tradition of extremely long booting 
time; total in-compatibility with Applesoft programs; 
requirement for a minimum (MINIMUM!) of 512K RAM; will not work 
under DOS, ProDOS, or any machine other than a IIgs. It turns 
out trying to use GSBASIC with less than 1024K is not really 
reasonable. 


The pre-release disk includes ProDOS-16 version 1.3 with the 
FINDER, GSBASIC, and a sample program which displays four Super 
Hi-Res pictures under mouse control. 


Some interesting trivia: instead of CATALOG and CAT, we now 
have CATALOG and DIR. Both display an 80-column list of files 
in the current directory. CATALOG looks a lot like our old 
ProDOS-8 favorite, and DIR is just a slight revision of it. 
DIR displays a tiny icon in front of each filename, leaves out 
the creation date, rounds up the file size to the nearest 
Kbytes, and spells out the access bits. 


If you hit Ctrl-RESET, you are in for a surprise. You get the 
marvelous message “CANNOT RESET -- $0602", a big beep, and the 
see-sSawing Apple. If you reset again you end up in the 
monitor. No problem, just boot again, wait five minutes for it 
all to reload, and then type in your whole program over again! 


GSBASIC is available now in pre-release form (beta version 
1.0B4) from APDA (Apple Programmer's Development Association), 
for $50. This is a very low price for such a large system. 
Applesoft originally cost $100, but of course it came on a ROM 
card. Applesoft is only 12K bytes long. GSBASIC is currently 
about 59K bytes long, and growing. 
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